home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr47 / masm.zip / MASM.LBR / GETDIR.AQM / GETDIR.ASM
Assembly Source File  |  1993-04-07  |  3KB  |  68 lines
  1.         TITLE GETDIR - DOS 2.0 Get Current Directory Function
  2. ;       BASCOM Callable subroutine to invoke GETDIR function from DOS
  3. ;              
  4. ;       Written By    John Chapman       CompuServ [70205,1217]
  5. ;       Version 1.0   January 1984
  6. ;INVOCATION:   This procedure is called as follows:
  7. ;           CALL GETDIR(DIRSTR$,drive$,RETCODE%)
  8. ;        DIRSTR$ is a string WHICH MUST BE BUILT BY CONCATENATION !!
  9. ;           (DIRSTR$ = 64blanks$ + CHR$(0) - for example) Creation of the
  10. ;           the string by CONCAT moves the string to string space, and the    
  11. ;           REQUIRED CHR$(0) at the end produces an ASCIIZ string of the 
  12. ;           format required by the DOS service. DIRSTR$ M U S T be 64 bytes
  13. ;           in length, on entry to GETDIR. The field RETCODE% will be set to 
  14. ;           the DOS return code provided by INT 21 FC=3B as described in
  15. ;           the DOS 2.0 manual, or the DOS 2.1 Techical Reference
  16. ;           For stability, the BASIC program must adjust the string length
  17. ;           of the returned directory name: On return, the directory name 
  18. ;           is terminated with a binary zero. Use of the INSTR fuction
  19. ;        will allow creation of a string with correct length.
  20. ;
  21. ; NOTE: The DRIVE$ string must contain a valid drive letter, or "@" 
  22. ;       if the default drive is required. DRIVE$ is not reset on return.
  23. ;
  24. ; It is suggested that the routine calling the service perform some simple    
  25. ; edit and validity checking on the drive letter.
  26. ; 
  27. ;
  28. CONST   SEGMENT WORD PUBLIC 'CONST'
  29. CONST   ENDS
  30. DATA    SEGMENT WORD PUBLIC 'DATA'
  31. DATA    ENDS
  32. DGROUP  GROUP  DATA,CONST
  33. CODE    SEGMENT BYTE PUBLIC 'CODE'
  34.         PUBLIC  GETDIR
  35.         ASSUME  CS:CODE,DS:DGROUP
  36. GETDIR  PROC    FAR             ; (NO PARAMETERS)
  37.         PUSH    BP              ; SAVE ENVIRONMENT
  38.         XOR     DX,DX           ; CLEAR OUT dx FOR DRIVE LETTER
  39.         MOV     BP,SP           ; POINT TO PARM LIST IN STACK SPACE
  40.         MOV     SI,[BP]+8       ; POINT TO SECOND PARAMETER
  41.         MOV     BX,2[SI]        ; ACTUAL ADDR OF DRIVE LETTER
  42.         MOV     DL,[BX]         ; LOAD THE DRIVE LETTER
  43.         CMP     DL,90           ; CHECK FOR LOWER CASE,
  44.         JG      LOWER           ; AND GO ADJUST IF LOWER
  45.         SUB     DL,64           ; ADJUST DRIVE LETTER FROM UPPER CASE.
  46.         JMP     DO_STRING       ; GO TO BUILD STRING
  47. LOWER:  SUB     DL,96           ; ADJUST DRIVE LETTER FROM LOWER CASE.
  48. do_string:
  49.         MOV     SI,[BP]+10      ; ==> TO STRING DESCRIPTOR (PARM 1)
  50.         MOV     AX,63           ; LENGTH OF STRING REQUIRED
  51.         CMP     [SI],AX         ; LENGTH : 64
  52.         JNG     BAD_LENGTH      ; EXIT IF STRING TOO SHORT
  53.         MOV     SI,2[SI]        ; ACTUAL ADDR OF STRING VARIABLE 
  54.         MOV     AH,47H          ; SETUP FOR DOS CALL 47
  55.         INT     21H             ; DOS CALL
  56. BAD_LENGTH:
  57.         JC      RC_SAVE         ; PASS RETURN CODE IF THERE (CARRY FLAG SET)
  58.         XOR     AX,AX           ; CLEAR AX (rc=0) IF CARRY FLAG NOT SET
  59. RC_SAVE:
  60.         MOV     SI,[BP]+6       ; POINT TO THIRD  PARAMETER
  61.         MOV     [SI],AX         ; STORE RETURN CODE IN THIRD  PARAMETER
  62. EXIT:   POP     BP              ; RESTORE ENVIRONMENT
  63.         RET     4
  64. TAGIT   DB      "$$$GETDIR$$$"
  65. GETDIR   ENDP
  66. CODE    ENDS
  67.         END
  68.